400
How to specifiy the symbol that indicates the decimal values while editing a floating point number

With AxG2antt1
	.BeginUpdate()
	With .Columns.Add("Float")
		.FormatColumn = "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exFloatInteger
			.Option(EXG2ANTTLib.EditorOptionEnum.exEditDecimalSymbol) = 44
		End With
	End With
	With .Items
		.AddItem(0.12)
		.AddItem(1)
		.AddItem(2.45)
	End With
	.EndUpdate()
End With
399
How can I edit a float number
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = EXG2ANTTLib.NumericEnum.exFloat
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
398
How can I edit a number
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
397
How do I limit the length of the text that the user may enter into an edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditLimitText) = 1
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
396
How can I change the password character
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditPassword) = True
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditPasswordChar) = 45
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
395
How can I add a password field
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditPassword) = True
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
394
How can I align the text to the right, in my edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditRight) = True
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
393
How can I add a simple edit or text box to my column
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
392
How can I change the type of the editor
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
	.Columns.Item("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
End With
391
How can I add a border arround the editor

With AxG2antt1
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Appearance = EXG2ANTTLib.InplaceAppearanceEnum.FlatApp
	End With
	With .Items
		.AddItem("Edit")
		.AddItem("Edit")
		.AddItem("Edit")
	End With
End With
390
How do I assign an editor for the entire column
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.AddItem("Edit")
		.AddItem("Edit")
		.AddItem("Edit")
	End With
End With
389
How do I check if a cell has an editor assigned
With AxG2antt1
	.Columns.Add("Column")
	With .Items
		.CellEditor(.AddItem("Edit -> ReadOnly "),0).EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddItem("ReadOnly")
		.AddItem("ReadOnly")
		.AddItem(.HasCellEditor(.FocusItem,0))
	End With
End With
388
How do I delete or remove the editor for a sppecified cell
With AxG2antt1
	.Columns.Add("Column")
	With .Items
		.CellEditor(.AddItem("Edit -> ReadOnly "),0).EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddItem("ReadOnly")
		.AddItem("ReadOnly")
		.DeleteCellEditor(.FocusItem,0)
	End With
End With
387
How do I hide or disable the editor assigned to a single cell
With AxG2antt1
	.Columns.Add("Column").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.AddItem("Edit")
		.CellEditorVisible(.AddItem("ReadOnly"),0) = EXG2ANTTLib.EditorVisibleEnum.exEditorHidden
		.AddItem("Edit")
	End With
End With
386
How do I assign or change the editor for a particular cell
With AxG2antt1
	.Columns.Add("Column")
	With .Items
		.AddItem("ReadOnly")
		.CellEditor(.AddItem("Edit"),0).EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddItem("ReadOnly")
	End With
End With
385
How do I get the caption of the cell as it is displayed on the control
Dim h
With AxG2antt1
	.Columns.Add("Column")
	With .Items
		h = .AddItem(3)
		With .CellEditor(h,0)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
			.AddItem(1,"One")
			.AddItem(2,"Two")
		End With
		.AddItem(.CellCaption(h,0))
		.AddItem(.CellValue(h,0))
	End With
End With
384
How do I prevent scrolling the control's data after user does the sort
With AxG2antt1
	.EnsureOnSort = False
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
End With
383
How do I ensure that the focused item is visible, after the user does the sort
With AxG2antt1
	.EnsureOnSort = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
End With
382
How can I disable selecting multiple items by dragging
With AxG2antt1
	.SelectByDrag = False
	.SingleSel = True
End With
381
Is there any function to change the default value for options of the editors
With AxG2antt1
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exEditPassword,True)
	.Columns.Add("Pass1").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Pass2").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
End With
380
How do I close the editor, or stop editing a cell
With AxG2antt1
	.EditClose()
End With
379
Is there any function to highlight or mark the cells that have a tooltip using my picture or icon

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.MarkTooltipCells = True
	.MarkTooltipCellsImage = 1
	.Columns.Add("")
	With .Items
		.CellToolTip(.AddItem("This is a cell with a tooltip"),0) = "This is a bit of text that is shown when the cursor hovers the cell."
	End With
	With .Items
		.CellToolTip(.AddItem("This is a cell without a tooltip"),0) = ""
	End With
End With
378
Is there any function to highlight or mark the cells that have a tooltip
With AxG2antt1
	.MarkTooltipCells = True
	.TooltipCellsColor = RGB(255,0,0)
	.Columns.Add("")
	With .Items
		.CellToolTip(.AddItem("This is a cell with a tooltip"),0) = "This is a bit of text that is shown when the cursor hovers the cell."
	End With
	With .Items
		.CellToolTip(.AddItem("This is a cell without a tooltip"),0) = ""
	End With
End With
377
Is there any function to highlight or mark the cells that have a tooltip
With AxG2antt1
	.MarkTooltipCells = True
	.Columns.Add("")
	With .Items
		.CellToolTip(.AddItem("This is a cell with a tooltip"),0) = "This is a bit of text that is shown when the cursor hovers the cell."
	End With
	With .Items
		.CellToolTip(.AddItem("This is a cell without a tooltip"),0) = ""
	End With
End With
376
How do I find the window's handled when an editor is running
Dim var_Editing
With AxG2antt1
	var_Editing = .Editing
End With
375
How can I start editing the cell
With AxG2antt1
	.AutoEdit = False
	.Edit()
End With
374
Is there any option to edit the control's data manually, so the editor doesn't show up as soon as the cell is focused
With AxG2antt1
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.AutoEdit = False
End With
373
How can change the background color for selected editor
With AxG2antt1
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSelectInPlace,255)
	.Columns.Add("Editor").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
	.Items.AddItem(20)
End With
372
How can change the visual appearance for the spin control, using your EBN files
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSpinUpButtonUp,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSpinUpButtonDown,33554432)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSpinDownButtonUp,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSpinDownButtonDown,33554432)
	.Columns.Add("Editor").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	.Items.AddItem(20)
End With
371
How can change the visual appearance for the slider or track bar, using your EBN files
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSliderThumb,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exSliderRange,13816530)
	.Columns.Add("Editor").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
	.Items.AddItem(20)
End With
370
How can change the visual appearance for the button that are visible inside the editors, using your EBN files
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exButtonDown,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exButtonUp,33554432)
	With .Columns.Add("Editor").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.AddButton(1)
	End With
	.Items.AddItem(#1/1/2002#)
End With
369
How can change the visual appearance for the button that shows the drop down editors, using your EBN files
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDropDownButtonUp,16777216)
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exDropDownButtonDown,33554432)
	.Columns.Add("Editor").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
	.Items.AddItem(#1/1/2002#)
End With
368
How can I find the column that gets the focus
With AxG2antt1
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit2").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	With .Items
		.ItemDivider(.AddItem(AxG2antt1.FocusColumnIndex)) = 0
	End With
End With
367
How do I make the control read-only, but still can see the values in a drop down list
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.ReadOnly = EXG2ANTTLib.ReadOnlyEnum.exLocked
	.Columns.Add("Editor").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
	.Items.AddItem(#1/1/2003#)
End With
366
How do I make the control read-only
With AxG2antt1
	.ReadOnly = EXG2ANTTLib.ReadOnlyEnum.exReadOnly
	With .Columns.Add("Editor").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
		.AddItem(1,"One")
		.AddItem(2,"Two")
	End With
	.Items.AddItem(1)
End With
365
How do I change the control's border, using your EBN files
With AxG2antt1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Appearance = &H1000000
End With
364
Can I change the default border of the tooltip, using your EBN files

With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
363
Can I change the background color for the tooltip
With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipBackColor,255)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
362
Does the tooltip support HTML format
With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
End With
361
Can I change the forecolor for the tooltip
With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXG2ANTTLib.BackgroundPartEnum.exToolTipForeColor,255)
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
360
Can I change the foreground color for the tooltip
With AxG2antt1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
End With
359
How can I merge cells
Dim h
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.MarkSearchColumn = False
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("this cell merges the first two columns")
		.CellMerge(h,0) = 1
		h = .AddItem()
		.CellValue(h,1) = "this cell merges the last two columns"
		.CellMerge(h,1) = 2
		h = .AddItem("this cell merges the all three columns")
		.CellMerge(h,0) = 1
		.CellMerge(h,0) = 2
		h = .AddItem("this draws a divider item")
		.ItemDivider(h) = 0
	End With
End With
358
How can I merge cells
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text merges all cells in the item (divider)")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXG2ANTTLib.DividerLineEnum.EmptyLine
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		h = .AddItem("Cell 2")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines. (cellmerge)"
		.CellMerge(h,1) = 2
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
357
How can I specify the width for a splited cell
Dim h,s,s1
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Single Column")
	With .Items
		h = .AddItem("Split 1")
		s = .SplitCell(h,0)
		.CellWidth(Nothing,s) = 64
		.CellValue(Nothing,s) = "Split 2"
		s1 = .SplitCell(Nothing,s)
		.CellValue(Nothing,s1) = "Split 3"
		.CellWidth(Nothing,s1) = 64
	End With
End With
356
How can I split a cell in three parts
Dim h,s,s1
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Single Column")
	With .Items
		h = .AddItem("Split 1")
		s = .SplitCell(h,0)
		.CellValue(Nothing,s) = "Split 2"
		s1 = .SplitCell(Nothing,s)
		.CellValue(Nothing,s1) = "Split 3"
	End With
End With
355
How can I add a button aligned to right
Dim s
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Single Column")
	.ShowFocusRect = False
	With .Items
		.ItemDivider(.AddItem("This is a bit of text being displayed on the entire item")) = 0
		s = .SplitCell(.AddItem("Split Cell 1.1"),0)
		.CellValue(Nothing,s) = "Split Cell <img>1</img>"
		.CellValueFormat(Nothing,s) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(Nothing,s) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.CellHasButton(Nothing,s) = True
		.CellWidth(Nothing,s) = 84
	End With
End With
354
How can I split a cell

Dim s
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Columns.Add("Single Column")
	.ShowFocusRect = False
	With .Items
		s = .SplitCell(.AddItem("Split Cell 1.1"),0)
		.CellValue(Nothing,s) = "Split Cell <img>1</img>"
		.CellValueFormat(Nothing,s) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(Nothing,s) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.CellBackColor(Nothing,s) = &H1000000
		.CellWidth(Nothing,s) = 84
	End With
End With
353
Can I select an item giving its general position
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectPos = 1
	End With
End With
352
How can I change the color for separator / dividers items
Dim h
With AxG2antt1
	.GridLineColor = RGB(255,0,0)
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem()
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXG2ANTTLib.DividerLineEnum.DoubleDotLine
		.ItemDividerLineAlignment(h) = EXG2ANTTLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 6
		.SelectableItem(h) = False
		h = .AddItem("Cell 2")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
351
How can I add separator - dividers items
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem()
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXG2ANTTLib.DividerLineEnum.DoubleDotLine
		.ItemDividerLineAlignment(h) = EXG2ANTTLib.DividerAlignmentEnum.DividerCenter
		.ItemHeight(h) = 6
		.SelectableItem(h) = False
		h = .AddItem("Cell 2")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
350
Can I change the style of the line being displayed by a divider item

Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.ScrollBySingleLine = False
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXG2ANTTLib.DividerLineEnum.DoubleDotLine
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.ItemHeight(h) = 24
	End With
End With
349
Can I remove the line being displayed by a divider item
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.ItemDividerLine(h) = EXG2ANTTLib.DividerLineEnum.EmptyLine
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
End With
348
How can I display a divider item, merging all cells
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.TreeColumnIndex = -1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		h = .AddItem("This is bit of text that's displayed on the entire item, divider.")
		.ItemDivider(h) = 0
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
End With
347
How can I fix or lock items
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)) = RGB(196,196,186)
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 2
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)) = RGB(196,196,186)
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,1),0) = "This is a locked item, fixed to the top side of the control."
		.ItemBackColor(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,1)) = RGB(186,186,186)
	End With
End With
346
How can I fix or lock an item on the bottom side of the control
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0),0) = "This is a locked item, fixed to the bottom side of the control."
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
345
How can I fix or lock an item on the top of the control
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		.CellValue(.LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0),0) = "This is a locked item, fixed to the top side of the control."
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
	End With
End With
344
Is there any function to limit the height of the items when I display it using multiple lines

Dim h
With AxG2antt1
	.ScrollBySingleLine = True
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		.ItemMaxHeight(h) = 48
	End With
End With
343
Why I cannot center my cells in the column
With AxG2antt1
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Default").Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	.Items.AddItem("item 1")
	.Items.AddItem("item 2")
	.Items.AddItem("item 3")
End With
342
How can I align the cell to the left, center or to the right
With AxG2antt1
	.TreeColumnIndex = -1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Default")
	With .Items
		.CellHAlignment(.AddItem("left"),0) = EXG2ANTTLib.AlignmentEnum.LeftAlignment
		.CellHAlignment(.AddItem("center"),0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.CellHAlignment(.AddItem("right"),0) = EXG2ANTTLib.AlignmentEnum.RightAlignment
	End With
End With
341
How do I apply HTML format to a cell
Dim h
With AxG2antt1
	.TreeColumnIndex = -1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("p2","c:\exontrol\images\auction.gif")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("The following item shows some of the HTML format supported:")
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		h = .AddItem("text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img>text <b>bold</b>, <i>italic</i>, <u>underline</" & _
"u>, <s>strikeout</s>, ...<dotline>and so on... <a>anchor</a> or <a2>hyperlink</a><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=0" & _
"0FF00>bgcolor</bgcolor> ")
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellSingleLine(h,0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
340
How can I change the font for a cell
With AxG2antt1
	.Columns.Add("Default")
	.Items.AddItem("std font")
	With .Items
		.CellValueFormat(.AddItem("this <font tahoma;12>is a bit of text with</font> a different font"),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
End With
339
How can I change the font for a cell
Dim f
With AxG2antt1
	.DefaultItemHeight = 22
	.Columns.Add("Default")
	.Items.AddItem("default font")
	f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	With .Items
		.CellFont(.AddItem("new font"),0) = f
	End With
	With .Items
		.CellFont(.AddItem("new font"),0) = AxG2antt1.ExecuteTemplate("Dim f;f = CreateObject(`StdFont`);{;Name = `Tahoma`;Size = 14;};")
	End With
End With
338
How can I change the font for entire item
Dim f
With AxG2antt1
	.Columns.Add("Default")
	.Items.AddItem("default font")
	f = CreateObject("StdFont")
	With f
		.Name = "Tahoma"
		.Size = 12
	End With
	With .Items
		.ItemFont(.AddItem("new font")) = f
	End With
End With
337
How do I vertically align a cell
Dim h
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("MultipleLine").Def(EXG2ANTTLib.DefColumnEnum.exCellSingleLine) = False
	.Columns.Add("VAlign")
	With .Items
		h = .AddItem("This is a bit of long text that should break the line")
		.CellValue(h,1) = "top"
		.CellVAlignment(h,1) = EXG2ANTTLib.VAlignmentEnum.exTop
		h = .AddItem("This is a bit of long text that should break the line")
		.CellValue(h,1) = "middle"
		.CellVAlignment(h,1) = EXG2ANTTLib.VAlignmentEnum.exMiddle
		h = .AddItem("This is a bit of long text that should break the line")
		.CellValue(h,1) = "bottom"
		.CellVAlignment(h,1) = EXG2ANTTLib.VAlignmentEnum.exBottom
	End With
End With
336
How can I change the position of an item
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.ItemPosition(.AddItem("Item 3")) = 0
	End With
End With
335
How do I find an item based on a path
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.ItemData(.InsertItem(h,Nothing,"Child 2")) = 1234
		.ExpandItem(h) = True
		.ItemBold(.FindPath("Root 1\Child 1")) = True
	End With
End With
334
How do I find an item based on my extra data
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.ItemData(.InsertItem(h,Nothing,"Child 2")) = 1234
		.ExpandItem(h) = True
		.ItemBold(.FindItemData(1234)) = True
	End With
End With
333
How do I find an item
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.ItemBold(.FindItem("Child 2",0)) = True
	End With
End With
332
How can I insert a hyperlink or an anchor element
With AxG2antt1
	.Columns.Add("Column")
	With .Items
		.CellValueFormat(.AddItem("Just an <a1>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
	With .Items
		.CellValueFormat(.AddItem("Just another <a2>anchor</a> element ..."),0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
End With
331
How do I find the index of the item based on its handle
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(.ItemToIndex(h))) = True
	End With
End With
330
How do I find the handle of the item based on its index
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.ItemBold(.ItemByIndex(1)) = True
	End With
End With
329
How can I find the cell being clicked in a radio group
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellValue(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
		.CellBold(Nothing,.CellChecked(1234)) = True
	End With
End With
328
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later
With AxG2antt1
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Default")
	With .Items
		.ItemHasChildren(.AddItem("parent item with no child items")) = True
		.AddItem("next item")
	End With
End With
327
Can I let the user to resize at runtime the specified item
With AxG2antt1
	.ScrollBySingleLine = True
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.Columns.Add("Default")
	With .Items
		.ItemAllowSizing(.AddItem("resizable item")) = True
		.AddItem("not resizable item")
	End With
End With
326
How can I change the size ( width, height ) of the picture

Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.CellPicture(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.CellPictureWidth(h,0) = 24
		.CellPictureHeight(h,0) = 24
		.ItemHeight(h) = 32
		h = .AddItem("Root 2")
		.CellPicture(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ItemHeight(h) = 48
	End With
End With
325
How can I find the number or the count of selected items
Dim h
With AxG2antt1
	.SingleSel = False
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectItem(.ItemChild(h)) = True
		.SelectItem(.NextSiblingItem(.ItemChild(h))) = True
		.AddItem(.SelectCount)
	End With
End With
324
How do I unselect an item
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectItem(h) = False
	End With
End With
323
How do I find the selected item
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectItem(h) = True
		.ItemBold(.SelectedItem(0)) = True
	End With
End With
322
How do I un select all items
Dim h
With AxG2antt1
	.SingleSel = False
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.UnselectAll()
	End With
End With
321
How do I select multiple items
Dim h
With AxG2antt1
	.SingleSel = False
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectItem(.ItemChild(h)) = True
		.SelectItem(.NextSiblingItem(.ItemChild(h))) = True
	End With
End With
320
How do I select all items
Dim h
With AxG2antt1
	.SingleSel = False
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectAll()
	End With
End With
319
How do I select an item
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
End With
318
Can I display a button with some picture or icon inside

Dim h
With AxG2antt1
	.set_HTMLPicture("p1","gBHJJGHA5MIwAEIe4AAAFhwbiEQEsTigwEowjEZGA7jkdIsfkBQkUjLZQLclLZlk8rlRlOBlmEwl5wmhwPc3nCFPaFSCFnk8nqQTaQolEoabpCbUtKUtNWFPp67qVTX" & _
"bFq1VqzQjjQKA7aFfaDbsRFHbbKBFsVpcrljjlsjlrtwIrlkrlPZwtbbtbleEieEleEqeE3eCFMuFODwsTwtbwxz7qz7tb7x+UfeXAOZzWbzmdz2f0Gh0Wj0ml02n1Gp" & _
"1Wr1mt12v2Gx2Wz2m122318MAAhfIEAMMf4AFm6hPFIAI4L/BIcJCwUDBQYICYeKjwMSEYYRDaMJCcJCxURFRQYExMMDAOJAIQEBofMS4JCyUiRBQKCggLAJEChQIXEA" & _
"xEEWBADAIxHAwHgyBATBEAEQoIg4EoXC4DB4nmQQDESAYRAwLBdFoEphAAEweCQeoQDCIRCFWLBXh8bB1FAVZBgMMBhkULodFAVgpkK4JUC6ZZbFabZbjYaIXCYJI7lK" & _
"bpdjwTJ1EqHYIHI7IjhKewOCYXAYHCCoJhaaAmgyYBygWCJICKMAoRqI5Hg8FQMEoEhlDyURBAQO4Gk4GocAAcxDgeEAUFQLwWlCVRqlYCJbB8eBtAqdgBl6UQJgEaBg" & _
"E2G5AhAYBBgGT4EA4Y5FguFYrFADAIkAIBBAKMBliUD5mluXR6nWbBZhGKgAEGYo4goDgcDYf4MG+XZeEMBh0BiVAvmeDwhkOe4OhcPAiHQe4wjASZ8BKLxwGQQB4mOS" & _
"AHDKSBvkARQWmsDAhBeIoTGyAgEGgGoAgICo0HoEABggIETkKDApCQAIvGoCJKDABAQkRVIGhkUgQCGBYdiaegBAUEpeDAIgEiCOooAEBwJBCUBKC8DoHCoTQmBmBoQE" & _
"GBwZHYEBhgAAYpAIYBGiYcoUAgKgpjyUAtDWKpglMCori8RICksAZcBSfIngAEpGFuIIDg4CIQFMOgyEsFJgEyAYSEgQAsDKNRMgsAAKCw54ACCcAwBOCBhAqO5ODkFh" & _
"LAgISGh4W5zDoNw1DOdBQkQExVHQURGHkWpsDEPAig0DQ3EoDQYG+OwXkoeBoAMFwLCSaQFgwBA6kCIxLg0YhoC+e54jSbBVB6SoYAiAx+Dqf56A+VRPE0Mggj+OgOjw" & _
"KA+gCawtCkQJcmcFQJCeVgLEWTAiGAVxSFWIJ6kSGBhCQXwvFocIui0EwMAyAwDGocABAabYNHAFYBmmbQqnaGMSIXRQAAAaD8UgSxBhmFqCIcAwAlBJB0AYETDRoBEA" & _
"GBEfAzhICiFODYMwmRoCOBkNEUgw3AgMFCIMW4tQPDpBe4IUYVl8jwAMCAOIABHiuAoGsVgKQQjZGoL8FYnBzDBAOKwII+QtBWFkM0KwZQsC3HCJgCAkwpiJBYGUNgVB" & _
"PBsBKJYJgDRQAlEuFINo4BgjLBgJsLgmxKhAFuLkGQCQNjwFsME3Y5AMhEAiBQCoZwOByA6AQUAZgsBCB+AUVwUQ5jWAyAQTwwAYgdG4NMPkkQuCgGeDUKAtXEBhBAIA" & _
"TodgXAHDEAgEY4A4ADDkK0YQGABAADEB4OAwABA2FWA8UoHQuCAGGNUdA4BCAXDcLgIRmQAA7ICA=")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = " Button <img>p1</img> "
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		.ItemHeight(h) = 48
	End With
End With
317
Can I display a button with some picture or icon inside
Dim h
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = " Button <img>1</img> "
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
	End With
End With
316
Can I display a button with some icon inside
Dim h
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = " <img>1</img> "
		.CellValueFormat(h,1) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
	End With
End With
315
How can I assign multiple icon/picture to a cell
Dim h
With AxG2antt1
	.set_HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
	.set_HTMLPicture("p2","c:\exontrol\images\auction.gif")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("text <img>p1</img> another picture <img>p2</img> and so on")
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellPicture(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.ItemHeight(h) = 48
		.AddItem("Root 2")
	End With
End With
314
How can I assign an icon/picture to a cell
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.CellPicture(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
		.ItemHeight(h) = 48
		.AddItem("Root 2")
	End With
End With
313
How can I assign multiple icons/pictures to a cell
Dim h
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root <img>1</img> 1, <img>2</img>, ... and so on ")
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
	End With
End With
312
How can I assign multiple icons/pictures to a cell

Dim h
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.CellImages(h,0) = "1,2,3"
	End With
End With
311
How can I assign an icon/picture to a cell

Dim h
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.CellImage(h,0) = 1
		.CellImage(.InsertItem(h,Nothing,"Child 1"),0) = 2
		.CellImage(.InsertItem(h,Nothing,"Child 2"),0) = 3
		.ExpandItem(h) = True
	End With
End With
310
How can I get the handle of an item based on the handle of the cell
Dim h
With AxG2antt1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		.ItemBold(.CellItem(.ItemCell(h,0))) = True
	End With
End With
309
How can I display a button inside the item or cell
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = " Button 1 "
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.RightAlignment
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Cell 2")
		.CellValue(h,1) = " Button 2 "
		.CellHAlignment(h,1) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		.CellHasButton(h,1) = True
	End With
End With
308
How can I change the state of a radio button
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellValue(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
	End With
End With
307
How can I assign a radio button to a cell
Dim h
With AxG2antt1
	.MarkSearchColumn = False
	.SelBackColor = RGB(255,255,128)
	.SelForeColor = RGB(0,0,0)
	.Columns.Add("C1")
	.Columns.Add("C2")
	.Columns.Add("C3")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Radio 1"
		.CellHasRadioButton(h,1) = True
		.CellRadioGroup(h,1) = 1234
		.CellValue(h,2) = "Radio 2"
		.CellHasRadioButton(h,2) = True
		.CellRadioGroup(h,2) = 1234
		.CellState(h,1) = 1
	End With
End With
306
How can I change the state of a checkbox
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Check Box"
		.CellHasCheckBox(h,1) = True
		.CellState(h,1) = 1
	End With
End With
305
How can I assign a checkbox to a cell
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Check Box"
		.CellHasCheckBox(h,1) = True
	End With
End With
304
How can I display an item or a cell on multiple lines
Dim h
With AxG2antt1
	.ScrollBySingleLine = True
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "This is bit of text that's shown on multiple lines"
		.CellSingleLine(h,1) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
303
How can I assign a tooltip to a cell
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "tooltip"
		.CellToolTip(h,1) = "This is bit of text that's shown when the user hovers the cell"
	End With
End With
302
How can I associate an extra data to a cell
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Cell 2"
		.CellData(h,1) = "your extra data"
	End With
End With
301
How do I enable or disable a cell
Dim h
With AxG2antt1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellValue(h,1) = "Cell 2"
		.CellEnabled(h,1) = False
	End With
End With